Attribute VB_Name = "modGeneral"
Option Explicit

Public Enum vbErrorNumbers
    KT_STD_ERROR = vbObjectError + 512
    KT_INIT_SEARCH = vbObjectError + 513
    KT_PERFORMUSERSEARCH = vbObjectError + 514
    KT_PERFORMSEARCH = vbObjectError + 515
    KT_DBCONNECT = vbObjectError + 516
    KT_INIT_USERSEARCH = vbObjectError + 517
    KT_FIND_BULLETINS = vbObjectError + 518
    KT_GET_BULLETINS = vbObjectError + 519
    KT_CREATE_NEW_BULLETIN = vbObjectError + 520
    KT_GET_ALL_COMPANIES = vbObjectError + 521
    KT_GET_DIRECTIVE_DETAILS = vbObjectError + 522
End Enum

'the connection
Public obj_ADOConn As ADODB.Connection

Public Sub dbConnect()
    Dim ConnHolder As Object
    Dim strConnString As String
    
    On Error GoTo PROC_ERROR
    
    'get the connection string
    Set ConnHolder = CreateObject("connect.clsConnect")
    strConnString = ConnHolder.ConnectionString
    
    'open the connection to the database
    Set obj_ADOConn = New ADODB.Connection
    obj_ADOConn.ConnectionString = strConnString
    obj_ADOConn.Open
    
    Exit Sub
PROC_ERROR:
        Err.Raise vbErrorNumbers.KT_DBCONNECT, "Keytax.clsSearch.dbConnect", Err.Description
End Sub

Sub Main()
'Dim x As clsSearch
'Set x = New clsSearch
'dbConnect
'x.PerformSearch "REQUESTED_BY", "benita", "N", "", 2, "mindkey"

End Sub
